Public Class PermissionInfo


    Public Sub New(ByVal id As Guid, ByVal name As String, ByVal checked As Boolean, Optional ByVal isDeletable As Boolean = False)
        Me.Id = id
        Me.Name = name
        Me.Checked = checked
        Me.IsDeletable = isDeletable
    End Sub

    Private _id As Guid
    Public Property Id() As Guid
        Get
            Return _id
        End Get
        Set(ByVal value As Guid)
            _id = value
        End Set
    End Property


    Private _name As String
    Public Property Name() As String
        Get
            Return _name
        End Get
        Set(ByVal value As String)
            _name = value
        End Set
    End Property


    Private _checked As Boolean
    Public Property Checked() As Boolean
        Get
            Return _checked
        End Get
        Set(ByVal value As Boolean)
            _checked = value
        End Set
    End Property

    Private _isDeletable As Boolean
    Public Property IsDeletable() As Boolean
        Get
            Return _isDeletable
        End Get
        Set(ByVal value As Boolean)
            _isDeletable = value
        End Set
    End Property

End Class
